home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
addres
/
printx.frm
< prev
next >
Wrap
Text File
|
1995-05-07
|
1KB
|
40 lines
VERSION 2.00
Begin Form PrintX
BorderStyle = 3 'Fixed Double
Caption = "Printing ..."
ClientHeight = 615
ClientLeft = 3030
ClientTop = 3285
ClientWidth = 2175
Height = 1020
Left = 2970
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 615
ScaleWidth = 2175
Top = 2940
Width = 2295
Begin SSCommand Command3D1
Caption = "&Cancel"
Font3D = 3 'Inset w/light shading
Height = 375
Left = 480
TabIndex = 0
Top = 120
Width = 1215
End
End
Sub Command3D1_Click ()
'PrintCancel is global to allow printout interruption by
'user
PrintCancel = True
End Sub
Sub Form_Load ()
PrintX.Top = Address.Top + (Address.Height - PrintX.Height) / 2
PrintX.Left = Address.Left + (Address.Width - PrintX.Width) / 2
End Sub